home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / menuman.zip / RUNMENU.BAS < prev    next >
BASIC Source File  |  1992-04-06  |  716b  |  30 lines
  1. ' An example of program chaining
  2.  
  3. CLS
  4. LOCATE 2, 20: PRINT STRING$(40, 35)
  5. FOR SIDE = 3 TO 21
  6. LOCATE SIDE, 20: PRINT CHR$(35); SPACE$(38); CHR$(35)
  7. NEXT
  8. LOCATE 22, 20: PRINT STRING$(40, 35)
  9. I = (62 - LEN(title$)) / 2
  10. LOCATE 4, 22, 0: COLOR 15, 0: PRINT TAB(I); "PROGRAM CHAINING": COLOR 7, 0
  11. DIM Menu$(3)
  12. Menu$(1) = "≤ 1 ≥  RUN ADBOX.BAS"
  13. Menu$(2) = "≤ 2 ≥  RUN SIGN.BAS"
  14. Menu$(3) = "≤ 3 ≥  QUIT PROGRAM"
  15. X = (56 - LEN(Menu$)) / 2
  16. FOR SET = 1 TO 3
  17. LOCATE SET + 8, 22: COLOR 15, 0: PRINT TAB(X); Menu$(SET): COLOR 7, 0
  18. NEXT
  19. DO: opt$ = INPUT$(1)
  20. LOOP WHILE INSTR("123", opt$) = 0
  21. SELECT CASE opt$
  22. CASE "1": RUN "ADBOX"
  23. CASE "2": RUN "SIGN"
  24. CASE "3": GOTO Finish
  25. END SELECT
  26.  
  27. Finish:
  28. SYSTEM
  29.  
  30.